Top 10k strings from 16-48 Magazine - Issue 09 (1984)(16-48 Tape Magazine).tap in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Magazines / Sinclair ZX Spectrum - Magazines - [TAP] (TOSEC-v2007-01-01) /
Back to the directory listing
23 K(V,G)=.01
10 PPPPPPPPPPPP
9 ;"Press any key for next page"
7 X(V,G)=X(V,G)+100
6 RUN THE TAPE
6 PPPPPPPRPPPPPP
6 ;" ":
5 a+l,b;" ":
5 X(V,G)=X(v,G)+100
5 LET THE TAPE RUN
5 ;" "
4 PPPPPPPPPP
3 z$="09020203STOP THE TAPE":
3 STOP THE TAPE
3 Q(V,G)=PTOTAL:
3 E(V,G)=PTOTAL:
3 D(V,G)=PTOTAL:
3 ;"infinity.":
3 ;"image at";
3 ;"Jimpix#6
3 16/48 script
3 "Rewind and play to verify.":
3 to quit and move on."
3
2 start=prog+
2 n,o;" ":
2 e+l,f-d;" "
2 a$="SOUTH":
2 X,Y-Y1;" ";
2 PTOTAL=PTOTAL+P(J):
2 Magnetic Magazines Ltd.*6\$:
2 Kt:}i=2}i(
2 DDD________
2 C_DDDDC___DDDDDDDD________
2 B.C.THORNE APRIL 1983*S\
2 ;"transmate":
2 ;"YAHTZEE"
2 ;"LENSRAY":
2 ;"Keep the tape running":
2 ;" Y A H T Z E E ";
2 ;" ":
2 ;" "
2 16/48comp9
2 ,y+c*h/(i+h):
2 ,Y-Y1;" ";
2 );"STOP TAPE"
2 ((prog+474
2 ((prog+168
2 "print 64"
2 "comp7pic"
2 "ELEVATOR"
2 "Advent#6"
2 '''''''''''''
2
1 z$="ll130201AND ":
1 z$="ll020302GREEN MEN":
1 z$="ll000402DUNGEONS":
1 z$="18010202THEN READ ON....":
1 z$="16040404CIRCUS":
1 z$="15030204Stop the tape":
1 z$="14010102WILLY STAYS PUT??":
1 z$="11010102LOOKING FOR AN ESSO STATION?":
1 z$="10030202HOW IT WORKS":
1 z$="10020203STOP THE TAPE":
1 z$="09040203RUN THE TAPE":
1 z$="09020203RUN THE TAPE":
1 z$="09010505Colony":
1 z$="08010102FOREVER CLOWNING AROUND?":
1 z$="07cc0203MACHINE CODE":
1 z$="07060201HELP MENU":
1 z$="07050202LET'S SEE":
1 z$="07030202JET SET WILLY":
1 z$="07030202HOBBIT HINTS":
1 z$="04000404Way home":
1 z$="04000303hij "+
1 z$="01040303The long":
1 z$="00cc0305LISTVARS":
1 z$="00140201OF":
1 z$="00010502LETTER":
1 y$="You see "
1 y$;"the following;":
1 y$;"nothing to help you.":
1 y$;" a large power"'"receiver pointing ";t$(5
1 xxxx"''"the code will be protected from NEW and you can now load or typein a program. To see the"'"variables simply BREAK out and
1 w+uu,-(w+uu)*50
1 w$=" ":
1 v=u*f/(u-f)
1 v=-x*k*(k-1
1 v=";v$;"cm
1 v;h*v/u;"cm":
1 v,h;"BAD LUCK YOU HAVE ";
1 v$="object height in cm.":
1 v$="object distance in cm."
1 v$="image height in cm.":
1 v$="image distance in cm.":
1 v$="focal length in cm."
1 v$="a smaller No please.":
1 v$="a larger No please.":
1 v$="Just the number please. ":
1 u=(x*k-x)*16
1 type GOTO GO
1 transmate
1 to save this program, enter RUN 9999
1 throwing a pangalactic burger. (Press F then K,L,N or M.)"''"Press 1, 2 or 3 to select your starting position."''"
1 prog+769,68"
1 print 64 B
1 p1,prog-cv*
1 p1,mem-cv*
1 p,q;"JUST BEEN DISINTEGRATED."
1 p$="To switch up scroll wrap-round on type in -":
1 p$="To switch up scroll wrap-round off type in -":
1 p$="To switch right scroll wrap-round on type in -":
1 p$="To switch right scroll wrap-round off type in -":
1 p$="To switch left scroll wrap-round on type in -":
1 p$="To switch left scroll wrap-round off type in -":
1 p$="To switch down scroll wrap-round on type in -":
1 p$="To switch down scroll wrap-round off type in -":
1 p$="To save press BREAK and enter in -":
1 p$="To load it in again type -":
1 p$="P.S. I'm finding the 64 line printing and the BIG print routines very useful.":
1 p$="I'd just quickly like to recomend the book 40 Machine code routines by HEWSON CONSULTANTS as this is how learned how write m/c routineslike Fade CLS.":
1 p$="Here is a dump of the new character set -":
1 p$=":this small routine gets rid of the ~bit~ that reads the tape-recorder.":
1 p$="1122334455667722744":
1 p$=".I have entered into the spirit of things and have sent in some ~homemade~ utilities. The first is script (see title).To make a copy of it type BREAK and enter in -":
1 p$=".Getting tired of the ~IN~ statment? Then try typing in this -":
1 p$="(It's relocatable by the way).":
1 p$=" You can now scroll the graphic ~A~ below.Use cursor keys,~W~ totoggle wrap-round and ~Q~ to move on.":
1 p$=" Where ????? is the port address.Now just work out the new numbers for the keys.The main trouble I find is if the tape recorder is playing,the number jumps from 191 to 255 all the time,":
1 p$=" Where ????? is an address (never use just LOAD ~~CODE!!!).Type in the line below to switch it on in your own programs.":
1 p$=" Turn page to find out how to switch wrap-round off\on.":
1 p$=" Turn page for a DEMO!!":
1 p$=" To save it press BREAK and enter in -":
1 p$=" To load it in again type in -":
1 p$=" To call scroll up type in -":
1 p$=" To call scroll right type in -":
1 p$=" To call scroll down type in -":
1 p$=" Now my last routine,well really four routines.These routines are for scrolling characters in all four directions.":
1 p$=" Now finally a tip for people with mark III Speccies.":
1 p$=" Load in again like the alternate Character set.":
1 p$=" It requires 8 calls to complety clear the screen.":
1 p$=" I'm realy impressed with your mag,I think it's a very good idea to put a mag on tape and you have done a very good job of it.":
1 p$=" Good eh? Now what you've all been waiting for,for me to show you how to use that Machine code routine to clear the screen. Your competition (which I missed!!) gave me the inspiration.":
1 p$=" Enter POKE 23296,?????-256*INT (?????/256): POKE 23297,INT (?????/256);where ????? is the address of the character.":
1 p$=" And to switch back to the Sinclair script type in -":
1 p$=" ????? as usual denotes an address.To call scroll left type in -":
1 p$=" Robert Walker,":
1 p$=" Edinburgh":
1 p$=" Press any key to continue. ":
1 o,o;" "
1 o,c*i/(h+i)-1
1 o,c*h/(h+i):
1 o,c*h/(h+i)-1
1 o,-c*i/(h+i):
1 m$="You need the clown to lend a<hand here. He also Knows where<to put it.":
1 m$="You must have the spanner to<short the terminals. I have no<idea why the Iron bar doesn't<work. ":
1 m$="You must have the right<footwear and take safety<precautions.":
1 m$="We enter the game standing in<a field outside the circus tent<with an empty petrol can and a<set of car keys. Finding the<petrol is easy; filling the can<is not.":
1 m$="Useful things to keep<in a car!":
1 m$="The story so far...< <While driving home, our car<suddenly splutters and grinds<to a halt. We are in the middle<of nowhere and darkness is<falling. A glimpse at our fuel<gauge and the task becomes<clear. With petrol can in hand<we embark upon the seemingly<innocent quest for a gallon of<four star.":
1 m$="The program has a large<dictionary and a fast response<time. It is essentially a<verb/noun type program, but it<will allow multiple statement<inputs such as,< < TAKE KEY THEN GO NORTH.< <There is also a 52 column text<screen which I find easier to<scan than the standard 32<column Sinclair text.":
1 m$="The Sealion might have<something to help, for a price!":
1 m$="No key fits this door. Try<applying some leverage.":
1 m$="No dragons to worry us this<month, only a clown and a cat(a<big cat), as we try to solve<(and survive) the mysteries of<the ":
1 m$="Lose your temper. Give it a<good KICK.":
1 m$="It takes a ___ to catch a ___<The clown holds the answer to<the whole affair.":
1 m$="In almost every delivery of<mail there is a desperate plea.< < HOW DO I GET OUT OF THE< GOBLINS DUNGEON?< <I have dealt with this before,<however, one more time.< < DO YOU WANT TO KNOW?< < Y/N ":
1 m$="I wonder what tight ropes are<made of?":
1 m$="Graphics are quickly drawn in<outline and then selected areas<~painted~ with an unusual<diamond shaped fill routine.<This routine, although pretty<and reasonably fast,<occasionally jumps lines and<corrupts adjacent areas.< <The pictures are quite good and<do add atmosphere to the game.":
1 m$="Escape is through the window,<which you have probably noticed<you cannot reach. This should<be no obstacle to a thief with<TALLER friends. Say to Thorin<~carry me~ Say to Thorin ~open<window~ Say to Thorin ~go<through window~. Now don't you<want to kick yourself?":
1 m$="Crack the whip.":
1 m$="CIRCUS is a well planned, non<violent adventure with lots of<atmosphere. The unusual<location works very well and<the timed escape sequence is<excellent.<If you own this recommended<DIGITAL FANTASIA game and need<help then the menu on the next<screen should prove useful.":
1 m$="After a three mile hike across<fields our hopes are raised as<we first hear and then see a<large circus. Just as we reach<the Big Top a sudden, sinister<silence falls and the lights<go out!!< <WHY?< <WHAT NEXT?":
1 m$="A thoughtful feature is the<graphics toggle. On pressing<the ~ENTER~ key the game<switches between graphics and<text only. I would like to see<this on all adventures where<drawing the pictures slows<down the game.<(Unlike the Long Way Home!)":
1 m$=" <Owing to my lazy map making,< the Jet Set Willy hint from<last month doesn't work. The<correct location for keying< < write typer< <is the Chapel side of the<FIRST LANDING. Sorry!":
1 letter2 H
1 letter .
1 l/npuzzle
1 gam=number
1 gam=gam+y(J):
1 elevator
1 e+l,f+t;" "
1 divide avoiding the invisible Transmate beam which the
1 details of your game so that you can RUN the game again from that point."
1 computer will move towards you from the other side."''"Move with keys K
1 cli)+("up "
1 cli)+("down "
1 clI)+("South "
1 clI)+("East "
1 advintro#6x
1 a$="WEST":
1 a$="TRANS":
1 a$="TRAIN":
1 a$="NORTH":
1 a$="GRAVE":
1 a$="EAST":
1 a$="DOWN":
1 a$="BLUE":
1 a$="ADVERT":
1 ________DDD
1 ]MAGNETIC MAGAZINES 83:H\
1 Z$="00000303ghij "+
1 You can test for the beam by
1 YAHTZEE
1 Y=G(PTR)-1
1 X(number,6
1 WP{PPPPPPPPPPPPPPPP:WWPWzPWWPzPWP{{{PPPPPPPPPPPPPP:8:PPzx{PW{x{PPP{PPPPPPPPPPPPPPPP:PPPP{PPPP{PPPPzPPPPRPPPPPPPPPPP:PPPPzPPPPzPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPP?8888888888888888888888888888888
1 W(J)=W(J)+1
1 V(number,6
1 V(V,N)=.01
1 V(V,G)=V(V,G)+P(B)
1 V(V,G)=.01
1 USE KEYS N-LEFT & M-RIGHT TO SKI DOWN THE NUMBER SLOPE AVIOD WALLS baaac d EAT NUMBERS EATING 1 SCORES 1 POINT,2 SCORES 2 POINTS E.T.C EATING A f GIVES YOU A MYSTRY BONUS??? f YOU ARE THE 'FACE MAN' e
1 The long way home
1 Test question ";q;" Score=";s
1 TRAM
1 TEXT
1 T(number,6
1 T(V,N)=.01
1 T(V,G)=T(V,G)+P(B)
1 T(V,G)=.01
1 T$="1110NORTH00":
1 SUBSEQUENT THROWS
1 SOUND=SOUND-
1 SLALOM n opqrs
1 S(number,6
1 S(V,N)=.01
1 S(V,G)=S(V,G)+P(B)
1 S(V,G)=.01
1 Rewind & play tape (
1 Replay tape to
1 RANDOMIZE
1 Q(number,6
1 Q(V,N)=.01
1 Q(V,G)=.01
1 Program BARRY THORNE
1 Press any key to continue.
1 Press a key (M gets the menu).
1 PTOTAL=PTOTAL+P(N)
1 PRINT VERSE ROUTINE
1 PRESS ANY KEY etc...
1 PRESS ANY KEY TO START
1 PRESS ANY KEY FOR A SILLY GAME
1 PRESS ANY KEY
1 PPRP PPP" PPPP" PPPP "PPP PP$ $ $ ?8888888888888888888888888888888
1 PPRP PPP"
1 PPPPP000000P
1 PP" PPPP "PPP PP
1 O(number,6
1 O(V,N)=.01
1 O(V,G)=O(V,G)+P(B)
1 O(V,G)=.01
1 NB. if it doesn't
1 N(number,6
1 MN=(FIN-START)/60
1 MN;" minutes, ";SCS;" second";:
1 MAGNETIC MAGAZINES :
1 M(number,6
1 LOAD 'TEXT' CHARACTERS
1 LISTVARS
1 LINE=LINE+1
1 LENSRAY
1 L(number,6
1 K(number,6
1 K(V,N)=.01
1 Jimpix
1 J(number,6
1 J(V,N)=.01
1 J(V,G)=.01
1 J 16/48**copyright 1984
1 In order to break out of the game to load side 2 of 16/48, Press CAPSHIFT 6 ,Type LOAD"""" "'"ENTER, and play side 2.
1 I(number,6
1 I(V,N)=.01
1 I(V,G)=.01
1 Ho="'h;"cm
1 Hi=";i$;"cm
1 H(number,6
1 H(V,N)=.01
1 H(V,G)=H(V,G)+P(B)
1 H(V,G)=.01
1 Graphics JIM DANN
1 GGGGGGGGEEEEEEEE
1 G(number,6
1 G(V,N)=.01
1 G(V,G)=.01
1 FttbB________DDDALfrB___CDDDDC
1 FFGG________GGGGGGGG________
1 FFFFGE________EEEEEEEG________DDFFFFGE________EEEEEEEG________DDDFFFGD________DDDDDDDG________DDDDFFGD________DDDDDDDG________DDD
1 FFFFB________DDD
1 FC__GGGGGGGG________
1 F(number,6
1 F(V,N)=.01
1 F(V,G)=F(V,G)+P(B)
1 F(V,G)=.01
1 F(PTR),G(PTR);"#"
1 EN=EN+E(PTR+1
1 ELEVATOR
1 E(number,6
1 E(V,N)=.01
1 E(V,G)=.01
1 DbB________
1 DDD________DDDDC___rbDDDDDD
1 DDDCCCCCCGG
1 D(number,6
1 D(V,N)=.01
1 D(V,G)=.01
1 C___bDDDDDDC
1 C__DDDDDDC_
1 C__DDDDDC__
1 CCDDDDC___EEEEEEEECCCCCC{_
1 CCC___CCrB
1 C(number,6
1 C$(N)="E":
1 C$(N)="D":
1 C$(N)="C":
1 C$(N)="B":
1 C$(N)="A":
1 BFFttb________DDD
1 BBB________ALfrbDDD__CDDDDD___C
1 BBB_____CCCLfrbDDDDCCDDDDDD___C
1 B.C.THORNE APRIL 1983
1 B(number,6
1 B$="PRESS ANY KEY TO LOAD THE GAME"
1 B$="PRESS A KEY FOR MORE":
1 B$="PRESS A KEY FOR ANOTHER VERSE"
1 B$="ANY KEY TO READ THE POEM":
1 Advent#6
1 ALfrbD_CCCDDDDCC
1 ALfrbDD__CDDDDD__CFFtbB________
1 ALf__CFFBbDGGGGGGGGF
1 A(number,6
1 A$="Your energy will drop,#When on an elevator,#But don't give up,#As you can get some later...#"
1 A$="Safety you may gain,#Beneath the purple pillars.#But for you to reach your aim,#You must AVOID the killers.#"
1 A$="SPADE":
1 A$="SOUTH"
1 A$="NORTH"
1 A$="Move your man around the screen,#To rescue all the men,#But if by spaceship he is seen#He loses energy (amount-ten)#"
1 A$="Hence follow the instructions,in verse,#For an interesting game,#At which you may cry or curse,#But enjoy it all the same#"
1 A$="An alien can view our hero#When directly above or below#This drains energy,and at zero,#Game over-press for another go!#"
1 A$="After rescuing a man,#Your energy will mount.#On the 10th one saved you can#Shout: ""I've won-I'm out!'#"
1 A$="974220865647566f6851960918649157f6545780008547284725486765750918765439195678638559183078f776643491034363595975017505745661f97543"
1 A$(number,10
1 A$(STR)="#"
1 A$(L)=A$(J)
1 A ferocious alien predator"'"appears & attacks you.You have"'"no defence from it,"'"it kills you.
1 ?????+8,190"
1 ?????+8,0"
1 ?????+7,203:
1 ?????+7,0:
1 ?????+65,54"
1 ?????+65,0"
1 ?????+47,54"
1 ?????+47,0"
1 ?????+22,134"
1 ?????+22,0"
1 ?????+21,203:
1 ?????+21,0:
1 ?888?88????88???8888888888888888
1 ?8888888888888888888888888888888
1 ;number;" Player/s"
1 ;h;"cm x ";v;"/";u;"="
1 ;A$(V);" "
1 ;A$(J);" = ";N(J,6
1 ;'"Play the tape containing your previous game":
1 ;"you took ";
1 ;"you have ";
1 ;"you had ";en;" units of energy left"
1 ;"units of energy."
1 ;"u=";u;"cm"
1 ;"transmate"
1 ;"to throw first"
1 ;"registered trade mark of":
1 ;"press any key to try again"
1 ;"please press any key to play"
1 ;"persons rescued = ";PTR-1
1 ;"permission."
1 ;"letter":
1 ;"l/npuzzle":
1 ;"l/npuzzle"
1 ;"f=";f;"cm";
1 ;"f=";f;"cm"
1 ;"elevator":
1 ;"elevator"
1 ;"and is used with":
1 ;"a brave,but unsuccessful attempt"
1 ;"_ ___ ___"
1 ;"Your answer v=";i$;"cm"
1 ;"Your answer Hi=";i$;"cm. "
1 ;"YOUR RESULT HAS BEEN ADDED TO":
1 ;"YOU HAD ";
1 ;"YAHTZEE":
1 ;"YAHTZEE may be played by up to 6 players."
1 ;"Y or N":
1 ;"Well done. You score 2."
1 ;"We'll ignore the wrong sign. "
1 ;"Watch the sign, Hi=";h*v/u;"cm."
1 ;"WOULD YOU LIKE TO PLAY AGAIN?"
1 ;"WELL DONE. YOU MADE IT.":
1 ;"View Instructions Again? Y or N"
1 ;"This month we feature 336 bytes of code to enable you to keep a check on the variables in your(or anyone else's) programs."
1 ;"The routine is saved as"''" ""listvar
1 ;"The next key press will perform RANDOMIZE
1 ;"The long way home"
1 ;"THROW No.";
1 ;"Strictly, v=";v;"cm. But...."
1 ;"Start the tape":
1 ;"START THE TAPE"'
1 ;"SPACE=CANCEL HOLD"
1 ;"S=SCORE Z=ROLL N=STICK":
1 ;"Recommended values for xxxx are,"''"32263 in 16K or"'"65031 in 48K,"''"but if you already have some code just below
1 ;"RUNNING TOTAL="
1 ;"REWIND AND PLAY TO VERIFY.":
1 ;"RESULT OF "
1 ;"Press any key to restart":
1 ;"Press a key.":
1 ;"Please input player ";
1 ;"Please enter number of players"
1 ;"Player ";J;" = ";
1 ;"Part 6":
1 ;"PRESS ANY KEY"
1 ;"PRESS A KEY (
1 ;"PRESS 'Z' TO ROLL DICE"
1 ;"PRESS 'Y' OR 'N'"
1 ;"PRESS 'S' FOR SCORESHEET"
1 ;"PLEASE WAIT":
1 ;"PLEASE WAIT"
1 ;"ON YOUR LAST THROW":
1 ;"Never mind."
1 ;"NEXT PLAYER TO ROLL"
1 ;"NAME: "
1 ;"Milton Bradley Company":
1 ;"MENU"'''"
1 ;"Let the tape run to the end of side one (16K machines will not LOAD the machine code part)."'"If you save the game it will"'"only run after CLEAR 32766":
1 ;"LISTVARS":
1 ;"LISTVARS"
1 ;"LENSRAY"
1 ;"I=INSTRUCTIONS"
1 ;"I choose ";
1 ;"I *** left P *** right N *** activate lift"
1 ;"Ho=";h;"cm"
1 ;"Good. ";h*v/u;"cm is right. Score 1."
1 ;"Get the idea?"''"To use the routine you should..."''"CLEAR xxxx-1:LOAD """"
1 ;"Final Score ";s;" out of 30."
1 ;"FINAL RESULT"
1 ;"EXTRA COMMANDS FOR 48K'ers"
1 ;"ELEVATOR":
1 ;"ELEVATOR"
1 ;"Don't worry about the silence between loading the program & machine code"
1 ;"Do you want instructions?"
1 ;"Correct. v=";v;"cm."
1 ;"But score 1 anyway. "
1 ;"Better luck next time."
1 ;"Advent#6":
1 ;"Advent#6"
1 ;"@ @ @ @ @ @ @ @ @ @"
1 ;"--------------------------------"
1 ;"*******"
1 ;"(Maximum of six players)":
1 ;"(Maximum of 10 characters)":
1 ;"'thankyou for saving us!'":
1 ;"'s name":
1 ;"'Z'=ROLL 'Q'=QUIT";
1 ;"'YAHTZEE' is a":
1 ;" stop the tape "
1 ;" s u c c e s s a t l a s t! "
1 ;" YOUR SCORESHEET ":
1 ;" STOP THE TAPE ";
1 ;" START THE TAPE ":
1 ;" RULES AND PLAYING INSTRUCTIONS "
1 ;" POINTS"
1 ;" LETTER (DICE) TO HOLD?"
1 ;" 16/48 AUG/SEPT 84 TAPE 09 "
1 ;" THATS ALL FOLKS! "
1 ;" PRESS 'R' TO RETURN TO GAME "
1 ;" As you may have guessed, any connections with persons living or dead are purely coincidental."
1 ;" After writing a game recently,my Spectrum decided to write theinstructions in verse,by itself!"
1 ;" That poem was written by MURTKEPS, (the pen name of ZX SPECTRUM.) and was definitelyNOT written by Chris Sutherland."
1 ;" PRESS 'F' FOR FINAL RESUlT ":
1 ;" (Well, I don't want to be associated with the poem!)"
1 ;" g a m e o v e r "
1 ;" e l e v a t o r "
1 ;" ":
1 ;" r e a d y ? "
1 ;" "
1 ;" ";
1 ;" "
1 ;" MR D.GOODALL BLACKPOOL DEAR 16/48, GREAT MAG!,KEEP UP THE GOOD WORK!. BREAK DISABLE (ISSUESEVEN) WAS A GREAT IDEA,AVOIDINGTHE 'AUTO-NEW' THAT MOST BREAK DISABLE'S USE. BUT! IT IS EASY TO STOP THE PROGRAM WHILE WAITING f TO LOAD THE CODE. IT WOULD e BE BETTER TO STORE THE CODE SOMEWHERE IN A REM STATEMENT & SAVE f THE WHOLE PROGRAM AS CODE TO AVOID MERGE ~~: STOP. YOURS -HELPFULLY(?)- opqrs
1 ;" "
1 ;" ":
1 9999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999:::::::::99999999999999999999999:::::::::99999999999999999999999999999999999999999999999999888888888888999<<<<9999999999999800000000008999<<<<9999999999999800000000008999;;;;;;;9999999999800000000008999;;;;;;;9999999999800000000008999;;;;;;;999999999980000000000899999999999999999999800000000008999????????????99999800000000008999????????????99999800000000008999????????????99999800000000008999????????????99999800000000008999????????????99999888888888888999????????????99999999999999999999?????????9998<<;;;;;8;;;;8888999?????????999999;;;;;;;;;99999999?????????999888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888
1 32000,336"'" ^(keyword)"''"but it is fully relocatable."'"So long as you CLEAR to at leastone byte lower it will work any-where in memory."
1 32000 to enable us to look at the variables in this program.":
1 23635+256*
1 16/48D&G.9
1 .........game key input
1 ................display
1 -c*i/(i+h):
1 -c*h/(h+i):
1 -c*h/(h+i)
1 ,o;"v=";v;"cm.":
1 ,o;"f=";f;"cm"
1 ,o;"_ ___ ___"'"v f u"
1 ,o;"Hi=Ho x v/u ";
1 ,o;"1 = 1 - 1";
1 ,o;"1 = 1 - 1"
1 ,G(PTR);"@":
1 ,G(PTR);"&"
1 ,G(PTR);" ":
1 ,(k$="q")+2
1 ,((X-X)-30
1 +uu-ff,y+1
1 +uu+ff,y+1
1 +c*i/(i+h))
1 *number)+1
1 *h/(i+h),0
1 *h/(i*uu):
1 *h/(i*ff):
1 *f))*(c+1500
1 *****************
1 *(k$="t")+3896
1 *(k$="m")+9999
1 *(d$="t")+9000
1 *(d$="m")+9999
1 );"baaac";
1 );"baaaaac";
1 );"baaaaaaaac";
1 );"baaaaaaaac"
1 (prog/cv):
1 (prog/cv)-
1 (prog+1217
1 (d$="a")+9998
1 (address)"
1 (O(V,N)+T(V,N)+H(V,N)+F(V,N)+V(V,N)+S(V,N))
1 (D(V,N)+E(V,N)+G(V,N)+I(V,N)+J(V,N)+K(V,N)+Q(V,N))
1 (C(V,N)+L(V,N))+X(V,N)
1 (A(V,N)+B(V,N))
1 (?????/256): POKE 23607,
1 (?????/256)-1:
1 (?????+50)"
1 (?????+28)"
1 (?????+14)"
1 ((PROG+474
1 ((FIN-START)-(
1 '';"LOAD """"
1 '';"9999 POKE 23606,0: POKE 23607,60:
1 '';" SAVE ""Fade CLS""
1 '';" LOAD """"
1 ''';"9998 POKE 23606,?????-256*
1 ''"See you again soon..."
1 ''"Do you want a print out of theseinstructions ? (y/n)"
1 ''"Are you nearing the end of"'"
1 '"You have visited the Marie"'"Celeste, a strange pyramid, a"'"prehistoric settlement and an"'"enchanted castle, in your bid toget home"
1 '"TRANSMATE is a game of luck and skill. You have to cross the
1 '"If you get stuck, EXAMINE"'"everything mentioned by the"'"computer, or, type HELP."
1 '"Do you want to read these again?"'"(y/n)"
1 '"Do you want to load a previous game ?"
1 #p;'"Use short sentences where"'"possible."'
1 #p;'"The story so far......."'"You are trying to find your way home via a series of Trans-mat units that you were forced to"'"scatter at random through time &space."
1 #p;"WHAT CAN I SEE - This reminds you of where visible exits are"'("and shows you a picture."
1 #p;"SAVE GAME - This will SAVE &
1 #p''"16/48 Presents the 6th episode of our text & graphics"'"adventure game.(High speed, hi-res graphics for 48K'ers only.)"
1 #p'"You tell the computer what you want to do by typing in ENGLISH.(Then pressing enter)"
1 #p'"You must draw a map wherever yougo so that you can find your wayaround."
1 #p'"N = GO NORTH"'"S =GO SOUTH ...etc"'"INSTRUCTIONS - gives you these instructions again."
1 #p'"In each episode of the game you are looking for one of the"'"transmat units in the hope that it will get you home."''"This month you materialize in anabandoned space colony back in the year 4816"
1 #p'"HELP - For (useful ?) advice."
1 #p'"GO NORTH, SOUTH, EAST...etc."'"EXAMINE THE ..."'"TAKE THE ..."'"GET THE..."'"READ THE.."
1 #p'"Don't worry if your character iskilled early on in your first game, it is all part of the learning process !"
1 #p'"Certain single words can be usedas commands. These are:"
1 #p'"Avoid giving more than one"'"instrucion per sentence."
1 "transmate"
1 "rewind & play":
1 "l/npuzzle"
1 "elevator"
1 "and falls into a meteor crater."'"You are killed":
1 "advintro#6"
1 "advent6/48"
1 "You take the SPADE":
1 "You should know by now that it is dangerous to push ANYTHING"'"except the blue button."'"The trans-mat explodes, you are killed":
1 "You see the usual three buttons,coloured RED,GREEN & BLUE.":
1 "You reveal a heavy door to the east of you":
1 "You open the DOOR."'y$;"a tunnel leading down tothe east"'("It is very dark"
1 "You need something to dig with first":
1 "You materialize.":
1 "You hear something behind you.":
1 "You hear a crackling of static in the air, somewhere beneath you hear a humming noise":
1 "You have;":
1 "You get on the train. It leaves the station and goes east.":
1 "You fall down an escalator"'"You are killed":
1 "You cannot":
1 "You cannot go ";a$:
1 "You cannot do much whilst you"'"are sitting in the train !":
1 "You are outside the large empty building. In front of it there is a TRANS-MAT unit.":
1 "You are outside a sandbank,"'("You see something buried in the sand"
1 "You are in the main street in a deserted colony."'"There is a graveyard to the westand a sand bank to the east.":
1 "You are in the desert":
1 "You are in an alien desert, the sky is purple, the sand is red.":
1 "You are in a well lit tunnel":
1 "You are in a square at the end of the main street.":
1 "You are in a large field."'"It is filled with solar panels."'"They are connected to a large transmitter that is pointing to the east.":
1 "You are in a graveyard"'"There are many graves dug in thesand":
1 "You are in a deserted rail"'"terminal. ";y$;"adverts on the walls,"'"There are tunnels east & west.":
1 "YZ i.e. five dice all showing the same number is scored as 50 points."
1 "YAHTZEE JOKER"
1 "YAHTZEE BONUS"
1 "What are you going to do ?"'"
1 "Used as a joker the YAHTZEE scores in exactly the same way as would the normal result e.g. A YAHTZEE of 6's scored in 3K would score 30, the total of all5 dice. If all the positions in the Lower Half are filled as well, the player must cross off a position of his choice in the Upper Half."
1 "Use one of the following words in your sentences;":
1 "Try examining things":
1 "To score here the player must attempt to get as many 1's to 6's as possible with a view to getting enough points for a 35 point bonus."
1 "There is nothing to read":
1 "There is a strong wind"
1 "There are large paw prints in"'"the sand.":
1 "There are heavy wires running into the ground":
1 "There are exits visible;"'("North "
1 "The train moves on...":
1 "The train leaves to the east.":
1 "The train leaves the tunnel and stops by a large building.":
1 "The straw flares up & goes out in a fraction of a second":
1 "The receiver is mounted on a"'"rotating platform.":
1 "The positions from 1's to 6's are known as the Upper Half and 3K to CH are known as the Lower Half positions."
1 "The player may on occasion find that his resultant roll cannot be entered. On these occasions aposition must be crossed off (See CROSSING OFF POSITIONS)"
1 "The object of the game is to achieve a higher score than thatof your opponent/s for one or more games (up to 6 games)."
1 "The newest graves are just"'"mounds of sand. The most recent has the date 4816 on it."'("There is a spade lying next to it."
1 "The computer will request the number of and names of the players.The computer will also determine who is to roll first."
1 "The chosen position then enteredwill be scored as 0 points and will not be available for further result entries in that game."
1 "The chest","No syphon","No flashlight","Can't make the connection","Maintenance wagon","Safety net to heavy","Bad tempered Lion","No cable","No balance","Unfriendly clown":
1 "The Upper and Lower Half positions when added give the Grand Total for that game. Any YAHTZEE bonuses for the current game are automatically added to the Grand Total (See YAHTZEE BONUS)."
1 "TURN","NORTH","SOUTH","EAST","WEST","DOWN","CLIMB","UP","EXAMINE","LOOK","SEE","GOT","TAKE","GET","HELP","DIG","OPEN","READ","PUSH","KILL","BURN","SAVE GAME","QUIT"
1 "THE UPPER HALF"
1 "THE PLAY"
1 "THE LOWER HALF"
1 "Save OK."
1 "SCORING THE RESULT"
1 "Rewind & Play to verify.":
1 "Put cartridge in drive 1":
1 "Please type ~";B$;"~,"'"then specify the direction.":
1 "PPP PP$$
1 "One player may play with the object of trying to get the highest possible score."
1 "On the first roll, all the dice are rolled. On the second and third rolls any dice may be heldwith a view to scoring a particular result."
1 "Nothing happens.":
1 "No way you are nearly finished.":
1 "Make sure that your map is"'"accurate.":
1 "Long Way#6"
1 "LS i.e. a run of 4 dice is scored as 30 points."
1 "LISTVARS"
1 "It's really far out man !":
1 "If the player elects to enter his fives he must type 5 then <ENTER>. The computer will then score the sum of the 5's = 15."
1 "If the computer can't understandyou it will suggest a few words to help you."'"It will not tell you every word that it knows as this would"'"spoil the game."
1 "If the YAHTZEE is scored in the Upper Half it is scored as the total of all 5 dice."
1 "If at any stage during scoring the player wants or needs to cross off a position he must enter ""X"" whereby the computer will ask:-"
1 "INSTRUCTION"
1 "I did not understand that !":
1 "Have you not been trained to"'"wait ?":
1 "HS i.e. a run of 5 dice is scored as 40 points."
1 "Final Roll Result= 1,2,5,5,5"
1 "FH i.e. any combination of threeof one number and two of anotheris scored as 25 points"
1 "Example of result entry:-"
1 "Enter Which Position? """;
1 "Each player has his own scoring sheet and by using his own judgement enters his result. Each game consists of 13 positions where a single result must be placed. These are:-"
1 "Each player has a maximum of three rolls of the dice with theoption of sticking at any time."
1 "ENTER WHICH POSITION?";W$:
1 "ENTER WHICH POSITION?";W$
1 "ENTER WHICH POSITION? ";W$:
1 "ENTER RESULT? ";
1 "ENTER "+v$;
1 "Don't forget to buy issue 28329 of
1 "Do you want to save this programon tape or microdrive? (y/n)"
1 "Computer will ask Enter Result? """;
1 "CROSSING OFF POSITIONS"
1 "CH is scored as the total of all5 dice in any combinaton"
1 "B) The position in the Upper Half that is used in the YAHTZEE has been filled. e.g. the player has a YAHTZEE in 6's and the 6's position is filled."
1 "As you start towards the the"'"tunnel a silent train runs you down. You have been killed.":
1 "As you are dematerializing a"'"blue police box mysteriously"'"appears."'" At least you have finally hit"'"your own time zone.":
1 "Any empty position may be crossed off at any time if the player considers this to be an advantage. The positions may be filled in any order."
1 "All scoring is calculated by thecomputer and all illegal result entries are not allowed."
1 "After the third roll the player must score his result."
1 "A) A YAHTZEE has already been scored or crossed off."
1 "A bonus of 35 points is awarded if the player manages to attain an Upper Half total of 63 or more."
1 "A YAHTZEE can be used as a jokerin the lower half if and only ifthe following hold true:-"
1 "A YAHTZEE bonus will be added tothe players Grand Total for thatgame if he is entitled to it."
1 "A YAHTZEE bonus (100 points) is awarded for a player's second and subsequent YAHTZEE if and only if the first YAHTZEE was scored. If the position was previously crossed off no bonus is awarded in that game."
1 "A Train arrives":
1 "A FLINT","some STRAW","a BOTTLE","a SPADE"
1 "9";"PRESS ANY KEY"
1 "9",i;"That's all for this month."'''" Press R to read again."'''" Press L to load ""transmate""."
1 "7";"LET THE TAPE RUN":
1 "7","27","99","4","11","50","18","23","15","11","11","35","5","7","5"
1 "6";EN;" ":
1 "6";"Wrap-round is "+("on "
1 "6",o;" ADVENTURE HELP FROM Yaz. "
1 "6","20","6","22","6","24","6","20","10","30"
1 "5";"( 'caps shift' and 'q' to quit )"
1 "5","20","6","25","5","20","20","30","5","20","6","25","5","20","25","0"
1 "42567",y:
1 "42566",x:
1 "4";"want to try again ? (Y/N)"
1 "3K and 4K is scored as the total of all 5 dice."
1 "3K (3 of a kind),"'"4K (4 of a kind),"'"FH (Full House),"'"LS (Low Straight),"'"HS (High Straight),"'"YZ (YAHTZEE),"'"CH (Chance)."
1 "3";"seconds lasted = ";FIN-START;
1 "23658",o:
1 "23635"+cv*
1 "23298",((
1 "23298"+sp*
1 "23298")+sp*
1 "23296")<cv):
1 "23296")*((
1 "19",v+s;"
1 "19",s+m;"
1 "19",p*t;"
1 "19",h+m;"
1 "18","13","25","4","15","30","18","11","30","17","27","40","3","31","15"
1 "16/48comp9"
1 "16/48D&G.9"
1 "15880"+f):
1 "1's, 2's, 3's, 4's, 5's, 6's,"
1 "''"The next time you press a key you will see a scrambled picturefrom SABRE WULF."''"Use
1 "'"QUIT - This restarts the game."
1 ""scroll""
1 ""script""
1 ""a"" then"'"put it below that.":
1 ""LENSRAY""
1 ! !!!!!!!!! ?8888888888888888888888888888888
1 to save to tape,"''"
1 to save to tape,"'"anything else for microdrive"
1 to save to microdrive 1,"''"
1 to save to TAPE."''"
1 to save to TAPE,"''"
1 to save to MIRODRIVE 1."''"
1 to save to MICRODRIVE 1,"''"
1 to save code to tape,"''"
1 to save code to microdrive 1,"''"
1 to retrieve the original screen. Then use
1 to read again,"''"
1 to read again or";
1 to quit and move on.":
1 to move on."
1 to microdrive
1 to get your Spectrum back."
1 to save it twice on tape."''"(You can BREAK and RUN if you want to start again.)"''"The first 6 correct tapes drawn on 30th Sept will win the game."''"Good luck."
1 saves to tape,
1 quits.) "
1 magazine !":
1 for menu."
1 for another,
1 for another go,"''"
1 by R.F.Gavin. **************
1 bottom.":
1 YAHTZEE *******
1 USEFUL PHRASES
1 SUBSEQUENT YAHTZEE
1 SUB YZ (CROSSED)
1 SORT ALTERNATIVE POSITION VARIABLES
1 SET SCREEN FOR DICE ROLL
1 SCORESHEET
1 RETURN FROM SCORESHEET
1 PRINT TOTALS AND RUNNING TOTAL
1 PRINT SCORES
1 PRINT PLAYER NAME
1 PRINT FINAL RESULT
1 PRESS ANY KEY TO PLAY.......
1 PLACING RESULT
1 PLACE RESULT ON SCORESHEET
1 NEXT PLAYER TO THROW
1 INSTRUCTIONS
1 INSTRUCTIONS
1 INPUT PLAYER NAMES
1 FLASH YAHTZEE
1 FIRST YZ (NOT CROSSED)
1 FIRST THROW
1 DIMENSION VARIABLES
1 DICE PRINTING
1 DICE POSITIONS
1 DICE GRAPHICS
1 DECIDE WHICH PLAYER TO THROW FIRST
1 CROSS OFF POSITION
1 COMMANDS "
1 CHECK FOR LS
1 CHECK FOR HS
1 CHECK FOR FH
1 CHECK FOR END OF GAME
1 CHECK FOR END OF 6 GAMES
1 CHECK FOR 4K
1 CHECK FOR 3K
1 CALCULATE TOTALS
1 CALCULATE RUNNING TOTALS
1 CALCULATE DICE TOTAL
1 BLANK DICE POSITIONS
1 AT PROG+34
1 ANOTHER GAME Y OR N ? opqrs
1 16/48 Magazine Ltd. *6\$:
1 16/48 Magazine 1984.
1 ...a mixture of both."''''" PRESS 1, 2, 3 or Q to quit."
1 ...Virtual images only, or"'''"
1 ...Real images only,"'''"
1 .. Take the test."''''" PRESS 1, 2, 3 or Q to quit."
1 .. Solve your own problems,"'''"
1 .. Just watch,"'''"
1 '''''''''
1 "YAHTZEE" is a registered trade mark of Milton Bradley Company and is used with permission.
1 AT PROG+211
1 AT PROG+730
1 AT PROG+402,453,484,517,550,583,632,673
1 '''''''''' '''''''''''''' ' ''''''88888888888888888888888888888888?8888888888888888888888888888888
1 AT PROG+326
1 ?8888888888888888888888888888888
1 $ PPPPPPPPP
1 $
1 ''''
1 !
1